home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #2 / Amiga Plus CD - 1999 - No. 2.iso / Magazin / LibGuide / MyCheck < prev    next >
AmigaDOS Script File  |  1998-10-18  |  1KB  |  44 lines

  1. .key file/A
  2. .BRA {
  3. .KET }
  4.  
  5. FailAt 50
  6. Echo "*NCheck:       {file}"
  7. RAM:DVC {file} info >ENV:Check1
  8. ; Abfangen wenn DVC nix gefunden hat->noch fehlerhaft
  9. If "$Check1" GT ""
  10.    rx RAM:MyConvert.rexx $Check1
  11. else
  12.    rx RAM:MyConvert.rexx {file}
  13. Endif
  14. If NOT WARN
  15.     RAM:Search RAM:LibList.dvc :$file NONUM >ENV:Check2
  16.     rx RAM:MyCheck.rexx $Checktemp1,$Check2
  17.     If NOT WARN
  18.         If "$Checkdev1" EQ "$Checkdev2"
  19.             SetEnv CheckErg=" is OK!"
  20.         else
  21.             If "$Checkdev1" GT "$Checkdev2"
  22.                 SetEnv CheckErg=" NEW !!! Please contact age@thepentagon.com!"
  23.                 Echo "*N----------[[(({file}))]]---------" >>Ram:Lib-NewList
  24.                 c:List "{file}" LFormat="Name: %-40n Size: %-10l Date: %d" >>Ram:Lib-NewList
  25.                 Echo "*NC:Version means:" >>Ram:Lib-NewList
  26.                 Version "{file}" FULL FILE >>Ram:Lib-NewList
  27.                 Echo "*NDVC means      :" >>Ram:Lib-NewList
  28.                 DVC "{file}" INFO >>Ram:Lib-NewList
  29.                 Echo "*NYOUR COMMENT   :" >>Ram:Lib-NewList
  30.             else
  31.                 SetEnv CheckErg=" Newer Library is available!"
  32.               Echo "Your System: $Check1 -> LibGuide: $Check2" >>Ram:Lib-OldList
  33.                 c:List "{file}" LFormat="%n|%l" >ENV:Lister
  34.             Echo "$Lister|$Version" >>Ram:Lib-OnlineUpdate
  35.             EndIf
  36.         EndIf
  37.         Echo "LibGuide   : $Check2 *NYour System: $Check1 $CheckErg"
  38.         Echo "LibGuide   : $Check2 *NYour System: $Check1 $CheckErg*N" >>Ram:Lib-List
  39.     else
  40.         Echo "{file}"
  41.         Echo "$Check1 *N{file} ??.??" >>Ram:Lib-List
  42.     EndIf
  43. EndIf
  44.